home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / M / MCLUTILS.CPT / oodles-of-utils / mixin-madness / simple-view-mixins / droppable-svm.lisp < prev    next >
MacBinary  |  1991-10-24  |  9.1 KB  |  [TEXT/CCL2]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, Thu Oct 24 15:28:11 1991, modified Thu Oct 24 15:28:11 1991, creator Common Lisp 2, type ASCII, 8606 bytes "droppable-svm.lisp" , at 0x221e 416 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[CCL2]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 12 64 72 6f 70 70 61 | 62 6c 65 2d 73 76 6d 2e |..droppa|ble-svm.|
|00000010| 6c 69 73 70 00 00 00 00 | 00 00 00 00 00 00 00 00 |lisp....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 00 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 21 9e 00 | 00 01 a0 a5 2c cf 4b a5 |.....!..|....,.K.|
|00000060| 2c cf 4b 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |,.K.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 88 f0 00 00 |........|........|
|00000080| 28 69 6e 2d 70 61 63 6b | 61 67 65 20 3a 6f 6f 75 |(in-pack|age :oou|
|00000090| 29 0d 28 70 72 6f 76 69 | 64 65 20 3a 64 72 6f 70 |).(provi|de :drop|
|000000a0| 70 61 62 6c 65 2d 73 76 | 6d 29 0d 3b 3b 3b 3b 3b |pable-sv|m).;;;;;|
|000000b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000f0| 3b 0d 3b 3b 20 64 72 6f | 70 70 61 62 6c 65 2d 73 |;.;; dro|ppable-s|
|00000100| 76 6d 2e 4c 69 73 70 0d | 3b 3b 0d 3b 3b 20 43 6f |vm.Lisp.|;;.;; Co|
|00000110| 70 79 72 69 67 68 74 20 | a9 20 31 39 39 31 20 4e |pyright |. 1991 N|
|00000120| 6f 72 74 68 77 65 73 74 | 65 72 6e 20 55 6e 69 76 |orthwest|ern Univ|
|00000130| 65 72 73 69 74 79 20 49 | 6e 73 74 69 74 75 74 65 |ersity I|nstitute|
|00000140| 20 66 6f 72 20 74 68 65 | 20 4c 65 61 72 6e 69 6e | for the| Learnin|
|00000150| 67 20 53 63 69 65 6e 63 | 65 73 0d 3b 3b 20 41 6c |g Scienc|es.;; Al|
|00000160| 6c 20 52 69 67 68 74 73 | 20 52 65 73 65 72 76 65 |l Rights| Reserve|
|00000170| 64 0d 3b 3b 0d 3b 3b 20 | 61 75 74 68 6f 72 3a 20 |d.;;.;; |author: |
|00000180| 4d 69 63 68 61 65 6c 20 | 53 2e 20 45 6e 67 62 65 |Michael |S. Engbe|
|00000190| 72 0d 3b 3b 0d 3b 3b 20 | 6d 69 78 69 6e 20 66 6f |r.;;.;; |mixin fo|
|000001a0| 72 20 64 72 61 67 67 69 | 6e 67 20 26 20 64 72 6f |r draggi|ng & dro|
|000001b0| 70 70 69 6e 67 20 76 69 | 65 77 73 0d 3b 3b 3b 3b |pping vi|ews.;;;;|
|000001c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000200| 3b 3b 0d 0d 28 6f 6f 75 | 2d 64 65 70 65 6e 64 65 |;;..(oou|-depende|
|00000210| 6e 63 69 65 73 0d 20 3a | 64 72 61 67 67 61 62 6c |ncies. :|draggabl|
|00000220| 65 2d 73 76 6d 0d 20 3a | 73 69 6d 70 6c 65 2d 76 |e-svm. :|simple-v|
|00000230| 69 65 77 2d 63 65 29 0d | 0d 0d 28 65 78 70 6f 72 |iew-ce).|..(expor|
|00000240| 74 20 27 28 64 72 6f 70 | 70 61 62 6c 65 2d 73 76 |t '(drop|pable-sv|
|00000250| 6d 20 70 72 65 2d 64 72 | 6f 70 2d 68 69 6c 69 74 |m pre-dr|op-hilit|
|00000260| 65 20 64 72 6f 70 70 61 | 62 6c 65 2d 70 29 29 0d |e droppa|ble-p)).|
|00000270| 0d 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |.;;;;;;;|;;;;;;;;|
|00000280| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000290| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000002a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000002b0| 3b 3b 3b 3b 3b 3b 3b 0d | 23 7c 0d 0d 54 68 69 73 |;;;;;;;.|#|..This|
|000002c0| 20 6d 69 78 69 6e 20 61 | 6c 6c 6f 77 73 20 61 20 | mixin a|llows a |
|000002d0| 76 69 65 77 20 74 6f 20 | 62 65 20 64 72 61 67 67 |view to |be dragg|
|000002e0| 65 64 20 61 6e 64 20 64 | 65 70 6f 73 69 74 65 64 |ed and d|eposited|
|000002f0| 20 69 6e 74 6f 20 74 61 | 72 67 65 74 73 2e 0d 49 | into ta|rgets..I|
|00000300| 74 20 68 61 6e 64 6c 65 | 73 20 68 69 6c 69 74 69 |t handle|s hiliti|
|00000310| 6e 67 20 64 75 72 69 6e | 67 20 74 68 65 20 64 72 |ng durin|g the dr|
|00000320| 61 67 20 77 68 65 6e 20 | 74 68 65 20 69 74 65 6d |ag when |the item|
|00000330| 20 69 73 20 6f 76 65 72 | 20 61 20 6c 65 67 61 6c | is over| a legal|
|00000340| 20 64 72 6f 70 0d 74 61 | 72 67 65 74 2e 20 54 68 | drop.ta|rget. Th|
|00000350| 65 20 66 75 6e 63 74 69 | 6f 6e 61 6c 69 74 79 20 |e functi|onality |
|00000360| 69 73 20 6d 75 63 68 20 | 6c 69 6b 65 20 64 72 61 |is much |like dra|
|00000370| 67 67 69 6e 67 20 66 69 | 6c 65 73 20 6f 76 65 72 |gging fi|les over|
|00000380| 20 66 6f 6c 64 65 72 20 | 69 6e 20 74 68 65 0d 46 | folder |in the.F|
|00000390| 69 6e 64 65 72 20 28 65 | 73 70 65 63 69 61 6c 6c |inder (e|speciall|
|000003a0| 79 20 77 68 65 6e 20 63 | 6f 6d 62 69 6e 65 64 20 |y when c|ombined |
|000003b0| 77 69 74 68 20 73 65 6c | 65 63 74 61 62 6c 65 2d |with sel|ectable-|
|000003c0| 73 76 6d 29 0d 0d 54 68 | 69 73 20 63 6c 61 73 73 |svm)..Th|is class|
|000003d0| 20 69 73 20 61 20 73 70 | 65 63 69 61 6c 69 7a 61 | is a sp|ecializa|
|000003e0| 74 69 6f 6e 20 6f 66 20 | 64 72 61 67 67 61 62 6c |tion of |draggabl|
|000003f0| 65 2d 73 76 6d 2e 20 49 | 66 20 74 68 65 20 69 74 |e-svm. I|f the it|
|00000400| 65 6d 20 69 73 20 64 72 | 6f 70 70 65 64 0d 6f 6e |em is dr|opped.on|
|00000410| 74 6f 20 61 20 6c 65 67 | 61 6c 20 74 61 72 67 65 |to a leg|al targe|
|00000420| 74 2c 20 64 72 6f 70 2d | 61 63 74 69 6f 6e 20 69 |t, drop-|action i|
|00000430| 73 20 65 78 65 63 75 74 | 65 64 20 72 61 74 68 65 |s execut|ed rathe|
|00000440| 72 20 74 68 61 6e 20 64 | 72 61 67 2d 65 6e 64 2d |r than d|rag-end-|
|00000450| 61 63 74 69 6f 6e 2e 0d | 49 66 20 69 74 20 69 73 |action..|If it is|
|00000460| 20 64 72 61 67 67 65 64 | 20 65 6c 73 65 77 68 65 | dragged| elsewhe|
|00000470| 72 65 2c 20 64 72 61 67 | 2d 65 6e 64 2d 61 63 74 |re, drag|-end-act|
|00000480| 69 6f 6e 20 69 73 20 63 | 61 6c 6c 65 64 20 69 6e |ion is c|alled in|
|00000490| 73 74 65 61 64 2e 0d 0d | 53 65 65 20 41 6c 73 6f |stead...|See Also|
|000004a0| 0d 20 64 72 61 67 67 61 | 62 6c 65 2d 73 76 6d 20 |. dragga|ble-svm |
|000004b0| 20 2d 20 69 6e 68 65 72 | 69 74 65 64 20 62 65 68 | - inher|ited beh|
|000004c0| 61 76 69 6f 72 0d 20 73 | 65 6c 65 63 74 61 62 6c |avior. s|electabl|
|000004d0| 65 2d 73 76 6d 20 2d 20 | 66 6f 72 20 64 72 6f 70 |e-svm - |for drop|
|000004e0| 70 69 6e 67 20 6d 75 6c | 74 69 70 6c 65 20 69 74 |ping mul|tiple it|
|000004f0| 65 6d 73 0d 0d 0d 49 6e | 69 74 61 72 67 73 0d 0d |ems...In|itargs..|
|00000500| 20 3a 64 72 6f 70 2d 74 | 61 72 67 65 74 2d 63 6c | :drop-t|arget-cl|
|00000510| 61 73 73 20 5b 27 64 69 | 61 6c 6f 67 2d 69 74 65 |ass ['di|alog-ite|
|00000520| 6d 5d 0d 20 20 20 4c 65 | 67 61 6c 20 64 72 6f 70 |m].   Le|gal drop|
|00000530| 20 74 61 72 67 65 74 20 | 63 61 6e 64 69 64 61 74 | target |candidat|
|00000540| 65 73 20 69 6e 68 65 72 | 69 74 20 66 72 6f 6d 20 |es inher|it from |
|00000550| 74 68 69 73 20 63 6c 61 | 73 73 2e 0d 20 0d 20 3a |this cla|ss.. . :|
|00000560| 64 72 6f 70 2d 74 61 72 | 67 65 74 73 20 5b 6e 6f |drop-tar|gets [no|
|00000570| 20 64 65 66 61 75 6c 74 | 5d 0d 20 20 20 41 20 6c | default|].   A l|
|00000580| 69 73 74 20 6f 66 20 76 | 69 65 77 2d 6e 69 63 6b |ist of v|iew-nick|
|00000590| 2d 6e 61 6d 65 73 20 74 | 6f 20 62 65 20 63 6f 6e |-names t|o be con|
|000005a0| 73 69 64 65 72 65 64 20 | 6c 65 67 61 6c 20 64 72 |sidered |legal dr|
|000005b0| 6f 70 20 74 61 72 67 65 | 74 73 2e 0d 20 20 20 49 |op targe|ts..   I|
|000005c0| 66 20 6e 6f 74 20 73 75 | 70 70 6c 69 65 64 2c 20 |f not su|pplied, |
|000005d0| 61 6e 79 20 6f 62 6a 65 | 63 74 20 69 6e 20 64 72 |any obje|ct in dr|
|000005e0| 6f 70 2d 74 61 72 67 65 | 74 2d 63 6c 61 73 73 20 |op-targe|t-class |
|000005f0| 69 73 20 6c 65 67 61 6c | 2e 20 49 74 65 6d 27 73 |is legal|. Item's|
|00000600| 20 63 61 6e 27 74 0d 20 | 20 20 62 65 20 64 72 6f | can't. |  be dro|
|00000610| 70 70 65 64 20 6f 6e 74 | 6f 20 74 68 65 6d 73 65 |pped ont|o themse|
|00000620| 6c 76 65 73 2c 20 73 6f | 20 64 6f 6e 27 74 20 77 |lves, so| don't w|
|00000630| 6f 72 72 79 20 61 62 6f | 75 74 20 65 78 63 6c 75 |orry abo|ut exclu|
|00000640| 64 69 6e 67 20 79 6f 75 | 72 73 65 6c 66 0d 20 20 |ding you|rself.  |
|00000650| 20 66 6f 72 6d 20 79 6f | 75 72 20 6f 77 6e 20 64 | form yo|ur own d|
|00000660| 72 6f 70 2d 74 61 72 67 | 65 74 73 20 6c 69 73 74 |rop-targ|ets list|
|00000670| 2e 0d 0d 20 3a 64 72 6f | 70 2d 61 63 74 69 6f 6e |... :dro|p-action|
|00000680| 2d 66 6e 20 5b 6e 6f 20 | 64 65 66 61 75 6c 74 5d |-fn [no |default]|
|00000690| 0d 20 20 20 54 68 65 20 | 64 65 66 61 75 6c 74 20 |.   The |default |
|000006a0| 64 72 6f 70 2d 61 63 74 | 69 6f 6e 20 6d 65 74 68 |drop-act|ion meth|
|000006b0| 6f 64 20 63 61 6c 6c 73 | 20 74 68 65 20 66 75 6e |od calls| the fun|
|000006c0| 63 74 69 6f 6e 20 73 74 | 6f 72 65 64 20 69 6e 20 |ction st|ored in |
|000006d0| 74 68 69 73 20 73 6c 6f | 74 2e 0d 20 20 20 54 68 |this slo|t..   Th|
|000006e0| 65 20 66 75 6e 63 74 69 | 6f 6e 20 73 68 6f 75 6c |e functi|on shoul|
|000006f0| 64 20 61 63 63 65 70 74 | 20 34 20 61 72 67 75 6d |d accept| 4 argum|
|00000700| 65 6e 74 73 2c 20 74 68 | 65 20 69 74 65 6d 20 64 |ents, th|e item d|
|00000710| 72 61 67 67 65 64 2c 20 | 74 68 65 20 64 72 6f 70 |ragged, |the drop|
|00000720| 20 74 61 72 67 65 74 2c | 0d 20 20 20 74 68 65 20 | target,|.   the |
|00000730| 63 68 61 6e 67 65 20 69 | 6e 20 6d 6f 75 73 65 20 |change i|n mouse |
|00000740| 70 6f 73 69 74 69 6f 6e | 20 61 73 20 61 20 70 6f |position| as a po|
|00000750| 69 6e 74 20 28 64 65 6c | 61 74 2d 68 2c 64 65 6c |int (del|at-h,del|
|00000760| 74 61 2d 76 29 2c 20 61 | 6e 64 20 74 68 65 20 66 |ta-v), a|nd the f|
|00000770| 69 6e 61 6c 0d 20 20 20 | 6d 6f 75 73 65 20 70 6f |inal.   |mouse po|
|00000780| 73 69 74 69 6f 6e 20 61 | 73 20 61 20 70 6f 69 6e |sition a|s a poin|
|00000790| 74 20 28 69 6e 20 6c 6f | 63 61 6c 20 63 6f 6f 72 |t (in lo|cal coor|
|000007a0| 64 69 6e 61 74 65 73 20 | 66 6f 72 20 61 20 76 69 |dinates |for a vi|
|000007b0| 65 77 2c 20 6f 72 20 69 | 6e 20 69 74 73 0d 20 20 |ew, or i|n its.  |
|000007c0| 20 63 6f 6e 74 61 69 6e | 65 72 27 73 20 20 63 6f | contain|er's  co|
|000007d0| 6f 72 64 69 6e 61 74 65 | 73 20 66 6f 72 20 61 20 |ordinate|s for a |
|000007e0| 73 69 6d 70 6c 65 2d 76 | 69 65 77 29 2e 20 55 73 |simple-v|iew). Us|
|000007f0| 65 20 74 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |e this f|unction |
|00000800| 74 6f 20 70 65 72 66 6f | 72 6d 0d 20 20 20 61 6e |to perfo|rm.   an|
|00000810| 20 61 63 74 69 6f 6e 20 | 61 66 74 65 72 20 64 72 | action |after dr|
|00000820| 6f 70 70 69 6e 67 20 74 | 68 65 20 69 74 65 6d 20 |opping t|he item |
|00000830| 6f 76 65 72 20 61 20 6c | 65 67 61 6c 20 64 72 6f |over a l|egal dro|
|00000840| 70 20 74 61 72 67 65 74 | 2e 0d 20 20 20 28 64 72 |p target|..   (dr|
|00000850| 61 67 2d 65 6e 64 2d 61 | 63 74 69 6f 6e 20 69 73 |ag-end-a|ction is|
|00000860| 20 63 61 6c 6c 65 64 20 | 74 6f 20 68 61 6e 64 6c | called |to handl|
|00000870| 65 20 6e 6f 6e 2d 64 72 | 6f 70 70 69 6e 67 20 64 |e non-dr|opping d|
|00000880| 72 61 67 73 29 0d 0d 0d | 4d 65 74 68 6f 64 73 20 |rags)...|Methods |
|00000890| 6f 66 20 49 6e 74 65 72 | 65 73 74 0d 0d 20 70 72 |of Inter|est.. pr|
|000008a0| 65 2d 64 72 6f 70 2d 68 | 69 6c 69 74 65 20 28 73 |e-drop-h|ilite (s|
|000008b0| 76 20 73 69 6d 70 6c 65 | 2d 76 69 65 77 29 20 68 |v simple|-view) h|
|000008c0| 69 6c 69 74 65 2d 66 6c | 61 67 0d 20 20 20 53 70 |ilite-fl|ag.   Sp|
|000008d0| 65 63 69 61 6c 69 7a 65 | 20 74 68 69 73 20 74 6f |ecialize| this to|
|000008e0| 20 63 75 73 74 6f 6d 69 | 7a 65 20 74 68 65 20 68 | customi|ze the h|
|000008f0| 69 6c 69 74 69 6e 67 20 | 65 66 66 65 63 74 20 77 |iliting |effect w|
|00000900| 68 65 6e 20 74 68 65 20 | 69 74 65 6d 20 69 73 20 |hen the |item is |
|00000910| 64 72 61 67 67 65 64 0d | 20 20 20 6f 76 65 72 20 |dragged.|   over |
|00000920| 61 20 6c 65 67 61 6c 20 | 64 72 6f 70 20 74 61 72 |a legal |drop tar|
|00000930| 67 65 74 2e 20 68 69 6c | 69 74 65 2d 66 6c 61 67 |get. hil|ite-flag|
|00000940| 20 69 6e 64 69 63 61 74 | 65 73 20 77 68 65 74 68 | indicat|es wheth|
|00000950| 65 72 20 74 6f 20 68 69 | 6c 69 74 65 20 6f 72 20 |er to hi|lite or |
|00000960| 75 6e 2d 68 69 6c 69 74 | 65 0d 20 20 20 74 68 65 |un-hilit|e.   the|
|00000970| 20 69 74 65 6d 20 28 74 | 2f 6e 69 6c 29 2e 20 54 | item (t|/nil). T|
|00000980| 68 65 20 64 65 66 61 75 | 6c 74 20 6d 65 74 68 6f |he defau|lt metho|
|00000990| 64 20 75 73 65 73 20 69 | 6e 76 65 72 73 69 6f 6e |d uses i|nversion|
|000009a0| 2e 0d 0d 20 64 72 6f 70 | 70 61 62 6c 65 2d 70 20 |... drop|pable-p |
|000009b0| 28 73 76 20 64 72 6f 70 | 70 61 62 6c 65 2d 73 76 |(sv drop|pable-sv|
|000009c0| 6d 29 20 28 74 61 72 67 | 65 74 20 73 69 6d 70 6c |m) (targ|et simpl|
|000009d0| 65 2d 76 69 65 77 29 0d | 20 20 20 53 70 65 63 69 |e-view).|   Speci|
|000009e0| 61 6c 69 7a 65 20 74 68 | 69 73 20 66 6f 72 20 6d |alize th|is for m|
|000009f0| 6f 72 65 20 73 6f 70 68 | 69 73 74 69 63 61 74 65 |ore soph|isticate|
|00000a00| 64 20 6c 65 67 61 6c 20 | 64 72 6f 70 20 74 61 72 |d legal |drop tar|
|00000a10| 67 65 74 20 64 69 73 63 | 72 69 6d 69 6e 61 74 69 |get disc|riminati|
|00000a20| 6f 6e 2e 0d 20 20 20 54 | 68 65 20 64 65 66 61 75 |on..   T|he defau|
|00000a30| 6c 74 20 6d 65 74 68 6f | 64 20 66 69 6e 64 73 20 |lt metho|d finds |
|00000a40| 74 68 65 20 76 69 65 77 | 20 74 68 65 20 6d 6f 75 |the view| the mou|
|00000a50| 73 65 20 69 73 20 69 6e | 20 61 6e 64 3b 20 6d 61 |se is in| and; ma|
|00000a60| 6b 65 73 20 73 75 72 65 | 20 69 74 20 69 73 6e 27 |kes sure| it isn'|
|00000a70| 74 0d 20 20 20 79 6f 75 | 72 73 65 6c 66 2c 20 63 |t.   you|rself, c|
|00000a80| 68 65 63 6b 73 20 69 74 | 73 20 63 6c 61 73 73 20 |hecks it|s class |
|00000a90| 61 67 61 69 6e 73 74 20 | 64 72 6f 70 2d 74 61 72 |against |drop-tar|
|00000aa0| 67 65 74 2d 63 6c 61 73 | 73 2c 20 61 6e 64 20 63 |get-clas|s, and c|
|00000ab0| 68 65 63 6b 73 20 66 6f | 72 0d 20 20 20 6d 65 6d |hecks fo|r.   mem|
|00000ac0| 62 65 72 73 68 69 70 20 | 69 6e 20 64 72 6f 70 2d |bership |in drop-|
|00000ad0| 74 61 72 67 65 74 73 2e | 0d 0d 7c 23 0d 3b 3b 3b |targets.|..|#.;;;|
|00000ae0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000af0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000b00| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000b10| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000b20| 3b 3b 3b 0d 0d 28 64 65 | 66 63 6c 61 73 73 20 64 |;;;..(de|fclass d|
|00000b30| 72 6f 70 70 61 62 6c 65 | 2d 73 76 6d 20 28 64 72 |roppable|-svm (dr|
|00000b40| 61 67 67 61 62 6c 65 2d | 73 76 6d 29 0d 20 20 28 |aggable-|svm).  (|
|00000b50| 28 64 72 6f 70 2d 74 61 | 72 67 65 74 2d 63 6c 61 |(drop-ta|rget-cla|
|00000b60| 73 73 20 3a 69 6e 69 74 | 61 72 67 20 3a 64 72 6f |ss :init|arg :dro|
|00000b70| 70 2d 74 61 72 67 65 74 | 2d 63 6c 61 73 73 0d 20 |p-target|-class. |
|00000b80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b90| 20 20 20 20 20 3a 61 63 | 63 65 73 73 6f 72 20 64 |     :ac|cessor d|
|00000ba0| 72 6f 70 2d 74 61 72 67 | 65 74 2d 63 6c 61 73 73 |rop-targ|et-class|
|00000bb0| 29 0d 20 20 20 28 64 72 | 6f 70 2d 74 61 72 67 65 |).   (dr|op-targe|
|00000bc0| 74 73 20 20 20 20 20 20 | 3a 69 6e 69 74 61 72 67 |ts      |:initarg|
|00000bd0| 20 3a 64 72 6f 70 2d 74 | 61 72 67 65 74 73 0d 20 | :drop-t|argets. |
|00000be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000bf0| 20 20 20 20 20 3a 61 63 | 63 65 73 73 6f 72 20 64 |     :ac|cessor d|
|00000c00| 72 6f 70 2d 74 61 72 67 | 65 74 73 29 0d 20 20 20 |rop-targ|ets).   |
|00000c10| 28 64 72 6f 70 2d 61 63 | 74 69 6f 6e 2d 66 6e 20 |(drop-ac|tion-fn |
|00000c20| 20 20 20 3a 69 6e 69 74 | 61 72 67 20 3a 64 72 6f |   :init|arg :dro|
|00000c30| 70 2d 61 63 74 69 6f 6e | 2d 66 6e 0d 20 20 20 20 |p-action|-fn.    |
|00000c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c50| 20 20 3a 61 63 63 65 73 | 73 6f 72 20 64 72 6f 70 |  :acces|sor drop|
|00000c60| 2d 61 63 74 69 6f 6e 2d | 66 6e 29 29 0d 20 20 28 |-action-|fn)).  (|
|00000c70| 3a 64 65 66 61 75 6c 74 | 2d 69 6e 69 74 61 72 67 |:default|-initarg|
|00000c80| 73 20 0d 20 20 20 20 3a | 64 72 6f 70 2d 74 61 72 |s .    :|drop-tar|
|00000c90| 67 65 74 2d 63 6c 61 73 | 73 20 27 64 69 61 6c 6f |get-clas|s 'dialo|
|00000ca0| 67 2d 69 74 65 6d 0d 20 | 20 20 20 29 29 0d 0d 28 |g-item. |   ))..(|
|00000cb0| 64 65 66 6d 65 74 68 6f | 64 20 63 61 6c 6c 2d 64 |defmetho|d call-d|
|00000cc0| 72 61 67 2d 61 63 74 69 | 6f 6e 20 3a 62 65 66 6f |rag-acti|on :befo|
|00000cd0| 72 65 20 28 28 73 76 20 | 64 72 6f 70 70 61 62 6c |re ((sv |droppabl|
|00000ce0| 65 2d 73 76 6d 29 29 0d | 20 20 28 64 65 63 6c 61 |e-svm)).|  (decla|
|00000cf0| 72 65 20 28 73 70 65 63 | 69 61 6c 20 2a 63 75 72 |re (spec|ial *cur|
|00000d00| 72 65 6e 74 2d 64 72 6f | 70 70 61 62 6c 65 2d 74 |rent-dro|ppable-t|
|00000d10| 61 72 67 65 74 2a 29 29 | 0d 20 20 28 6c 65 74 2a |arget*))|.  (let*|
|00000d20| 20 28 28 77 68 65 72 65 | 20 28 25 73 74 61 63 6b | ((where| (%stack|
|00000d30| 2d 62 6c 6f 63 6b 20 28 | 28 70 20 34 29 29 20 28 |-block (|(p 4)) (|
|00000d40| 23 5f 47 65 74 4d 6f 75 | 73 65 20 70 29 20 28 23 |#_GetMou|se p) (#|
|00000d50| 5f 4c 6f 63 61 6c 54 6f | 47 6c 6f 62 61 6c 20 70 |_LocalTo|Global p|
|00000d60| 29 20 28 25 67 65 74 2d | 70 6f 69 6e 74 20 70 29 |) (%get-|point p)|
|00000d70| 29 29 0d 20 20 20 20 20 | 20 20 20 20 28 6e 65 77 |)).     |    (new|
|00000d80| 2d 74 61 72 67 65 74 20 | 28 66 69 6e 64 2d 64 72 |-target |(find-dr|
|00000d90| 6f 70 70 61 62 6c 65 2d | 76 69 65 77 2d 63 6f 6e |oppable-|view-con|
|00000da0| 74 61 69 6e 69 6e 67 2d | 70 6f 69 6e 74 20 73 76 |taining-|point sv|
|00000db0| 20 77 68 65 72 65 29 29 | 29 0d 20 20 20 20 28 75 | where))|).    (u|
|00000dc0| 6e 6c 65 73 73 20 28 65 | 71 20 6e 65 77 2d 74 61 |nless (e|q new-ta|
|00000dd0| 72 67 65 74 20 2a 63 75 | 72 72 65 6e 74 2d 64 72 |rget *cu|rrent-dr|
|00000de0| 6f 70 70 61 62 6c 65 2d | 74 61 72 67 65 74 2a 29 |oppable-|target*)|
|00000df0| 0d 20 20 20 20 20 20 28 | 77 68 65 6e 20 2a 63 75 |.      (|when *cu|
|00000e00| 72 72 65 6e 74 2d 64 72 | 6f 70 70 61 62 6c 65 2d |rrent-dr|oppable-|
|00000e10| 74 61 72 67 65 74 2a 0d | 20 20 20 20 20 20 20 20 |target*.|        |
|00000e20| 28 70 72 65 2d 64 72 6f | 70 2d 68 69 6c 69 74 65 |(pre-dro|p-hilite|
|00000e30| 20 2a 63 75 72 72 65 6e | 74 2d 64 72 6f 70 70 61 | *curren|t-droppa|
|00000e40| 62 6c 65 2d 74 61 72 67 | 65 74 2a 20 6e 69 6c 29 |ble-targ|et* nil)|
|00000e50| 29 0d 20 20 20 20 20 20 | 28 77 68 65 6e 20 6e 65 |).      |(when ne|
|00000e60| 77 2d 74 61 72 67 65 74 | 0d 20 20 20 20 20 20 20 |w-target|.       |
|00000e70| 20 28 70 72 65 2d 64 72 | 6f 70 2d 68 69 6c 69 74 | (pre-dr|op-hilit|
|00000e80| 65 20 6e 65 77 2d 74 61 | 72 67 65 74 20 74 29 29 |e new-ta|rget t))|
|00000e90| 0d 20 20 20 20 20 20 28 | 73 65 74 66 20 2a 63 75 |.      (|setf *cu|
|00000ea0| 72 72 65 6e 74 2d 64 72 | 6f 70 70 61 62 6c 65 2d |rrent-dr|oppable-|
|00000eb0| 74 61 72 67 65 74 2a 20 | 6e 65 77 2d 74 61 72 67 |target* |new-targ|
|00000ec0| 65 74 29 29 29 29 0d 0d | 28 64 65 66 6d 65 74 68 |et))))..|(defmeth|
|00000ed0| 6f 64 20 64 72 61 67 2d | 69 74 65 6d 20 28 28 73 |od drag-|item ((s|
|00000ee0| 76 20 64 72 6f 70 70 61 | 62 6c 65 2d 73 76 6d 29 |v droppa|ble-svm)|
|00000ef0| 20 77 68 65 72 65 29 0d | 20 20 28 6c 65 74 20 28 | where).|  (let (|
|00000f00| 28 2a 63 75 72 72 65 6e | 74 2d 64 72 6f 70 70 61 |(*curren|t-droppa|
|00000f10| 62 6c 65 2d 74 61 72 67 | 65 74 2a 29 29 0d 20 20 |ble-targ|et*)).  |
|00000f20| 20 20 28 64 65 63 6c 61 | 72 65 20 28 73 70 65 63 |  (decla|re (spec|
|00000f30| 69 61 6c 20 2a 63 75 72 | 72 65 6e 74 2d 64 72 6f |ial *cur|rent-dro|
|00000f40| 70 70 61 62 6c 65 2d 74 | 61 72 67 65 74 2a 29 29 |ppable-t|arget*))|
|00000f50| 0d 20 20 20 20 28 6c 65 | 74 20 28 28 64 72 61 67 |.    (le|t ((drag|
|00000f60| 2d 6f 66 66 73 65 74 20 | 28 63 61 6c 6c 2d 6e 65 |-offset |(call-ne|
|00000f70| 78 74 2d 6d 65 74 68 6f | 64 29 29 29 0d 20 20 20 |xt-metho|d))).   |
|00000f80| 20 20 20 28 77 68 65 6e | 20 2a 63 75 72 72 65 6e |   (when| *curren|
|00000f90| 74 2d 64 72 6f 70 70 61 | 62 6c 65 2d 74 61 72 67 |t-droppa|ble-targ|
|00000fa0| 65 74 2a 0d 20 20 20 20 | 20 20 20 20 28 70 72 65 |et*.    |    (pre|
|00000fb0| 2d 64 72 6f 70 2d 68 69 | 6c 69 74 65 20 2a 63 75 |-drop-hi|lite *cu|
|00000fc0| 72 72 65 6e 74 2d 64 72 | 6f 70 70 61 62 6c 65 2d |rrent-dr|oppable-|
|00000fd0| 74 61 72 67 65 74 2a 20 | 6e 69 6c 29 0d 20 20 20 |target* |nil).   |
|00000fe0| 20 20 20 20 20 28 77 68 | 65 6e 20 64 72 61 67 2d |     (wh|en drag-|
|00000ff0| 6f 66 66 73 65 74 0d 20 | 20 20 20 20 20 20 20 20 |offset. |        |
|00001000| 20 28 63 61 6c 6c 2d 64 | 72 6f 70 2d 61 63 74 69 | (call-d|rop-acti|
|00001010| 6f 6e 20 73 76 20 2a 63 | 75 72 72 65 6e 74 2d 64 |on sv *c|urrent-d|
|00001020| 72 6f 70 70 61 62 6c 65 | 2d 74 61 72 67 65 74 2a |roppable|-target*|
|00001030| 20 64 72 61 67 2d 6f 66 | 66 73 65 74 20 28 61 64 | drag-of|fset (ad|
|00001040| 64 2d 70 6f 69 6e 74 73 | 20 77 68 65 72 65 20 64 |d-points| where d|
|00001050| 72 61 67 2d 6f 66 66 73 | 65 74 29 29 0d 20 20 20 |rag-offs|et)).   |
|00001060| 20 20 20 20 20 20 20 28 | 73 65 74 66 20 64 72 61 |       (|setf dra|
|00001070| 67 2d 6f 66 66 73 65 74 | 20 6e 69 6c 29 29 29 0d |g-offset| nil))).|
|00001080| 20 20 20 20 20 20 64 72 | 61 67 2d 6f 66 66 73 65 |      dr|ag-offse|
|00001090| 74 29 29 29 0d 0d 28 64 | 65 66 6d 65 74 68 6f 64 |t)))..(d|efmethod|
|000010a0| 20 63 61 6c 6c 2d 64 72 | 6f 70 2d 61 63 74 69 6f | call-dr|op-actio|
|000010b0| 6e 20 28 28 73 76 20 64 | 72 6f 70 70 61 62 6c 65 |n ((sv d|roppable|
|000010c0| 2d 73 76 6d 29 20 28 74 | 61 72 67 65 74 20 73 69 |-svm) (t|arget si|
|000010d0| 6d 70 6c 65 2d 76 69 65 | 77 29 20 64 72 61 67 2d |mple-vie|w) drag-|
|000010e0| 6f 66 66 73 65 74 20 64 | 65 73 74 2d 70 6f 69 6e |offset d|est-poin|
|000010f0| 74 29 0d 20 20 3b 3b 65 | 78 69 73 74 73 20 70 72 |t).  ;;e|xists pr|
|00001100| 69 6d 61 72 69 6c 79 20 | 74 6f 20 62 65 20 73 70 |imarily |to be sp|
|00001110| 65 63 69 61 6c 69 7a 65 | 64 20 62 79 20 73 65 6c |ecialize|d by sel|
|00001120| 65 63 74 61 62 6c 65 2d | 73 76 6d 0d 20 20 28 64 |ectable-|svm.  (d|
|00001130| 72 6f 70 2d 61 63 74 69 | 6f 6e 20 73 76 20 74 61 |rop-acti|on sv ta|
|00001140| 72 67 65 74 20 64 72 61 | 67 2d 6f 66 66 73 65 74 |rget dra|g-offset|
|00001150| 20 64 65 73 74 2d 70 6f | 69 6e 74 29 29 0d 0d 28 | dest-po|int))..(|
|00001160| 64 65 66 6d 65 74 68 6f | 64 20 64 72 6f 70 2d 61 |defmetho|d drop-a|
|00001170| 63 74 69 6f 6e 20 28 28 | 73 76 20 64 72 6f 70 70 |ction ((|sv dropp|
|00001180| 61 62 6c 65 2d 73 76 6d | 29 20 28 74 61 72 67 65 |able-svm|) (targe|
|00001190| 74 20 73 69 6d 70 6c 65 | 2d 76 69 65 77 29 20 64 |t simple|-view) d|
|000011a0| 72 61 67 2d 6f 66 66 73 | 65 74 20 64 65 73 74 2d |rag-offs|et dest-|
|000011b0| 70 6f 69 6e 74 29 0d 20 | 20 28 77 68 65 6e 20 28 |point). | (when (|
|000011c0| 73 6c 6f 74 2d 62 6f 75 | 6e 64 70 20 73 76 20 27 |slot-bou|ndp sv '|
|000011d0| 64 72 6f 70 2d 61 63 74 | 69 6f 6e 2d 66 6e 29 0d |drop-act|ion-fn).|
|000011e0| 20 20 20 20 28 66 75 6e | 63 61 6c 6c 20 28 64 72 |    (fun|call (dr|
|000011f0| 6f 70 2d 61 63 74 69 6f | 6e 2d 66 6e 20 73 76 29 |op-actio|n-fn sv)|
|00001200| 20 73 76 20 74 61 72 67 | 65 74 20 64 72 61 67 2d | sv targ|et drag-|
|00001210| 6f 66 66 73 65 74 20 64 | 65 73 74 2d 70 6f 69 6e |offset d|est-poin|
|00001220| 74 29 29 29 0d 0d 28 64 | 65 66 6d 65 74 68 6f 64 |t)))..(d|efmethod|
|00001230| 20 70 72 65 2d 64 72 6f | 70 2d 68 69 6c 69 74 65 | pre-dro|p-hilite|
|00001240| 20 28 28 73 76 20 73 69 | 6d 70 6c 65 2d 76 69 65 | ((sv si|mple-vie|
|00001250| 77 29 20 68 69 6c 69 74 | 65 2d 66 6c 61 67 29 0d |w) hilit|e-flag).|
|00001260| 20 20 28 77 69 74 68 2d | 66 6f 63 75 73 65 64 2d |  (with-|focused-|
|00001270| 76 69 65 77 20 28 66 6f | 63 75 73 69 6e 67 2d 76 |view (fo|cusing-v|
|00001280| 69 65 77 20 73 76 29 0d | 20 20 20 20 28 68 69 6c |iew sv).|    (hil|
|00001290| 69 74 65 2d 76 69 65 77 | 20 73 76 20 68 69 6c 69 |ite-view| sv hili|
|000012a0| 74 65 2d 66 6c 61 67 29 | 29 29 0d 0d 28 64 65 66 |te-flag)|))..(def|
|000012b0| 6d 65 74 68 6f 64 20 64 | 72 6f 70 70 61 62 6c 65 |method d|roppable|
|000012c0| 2d 70 20 28 28 73 76 20 | 64 72 6f 70 70 61 62 6c |-p ((sv |droppabl|
|000012d0| 65 2d 73 76 6d 29 20 28 | 74 61 72 67 65 74 20 73 |e-svm) (|target s|
|000012e0| 69 6d 70 6c 65 2d 76 69 | 65 77 29 29 0d 20 20 28 |imple-vi|ew)).  (|
|000012f0| 75 6e 6c 65 73 73 20 28 | 65 71 20 73 76 20 74 61 |unless (|eq sv ta|
|00001300| 72 67 65 74 29 0d 20 20 | 20 20 28 77 68 65 6e 20 |rget).  |  (when |
|00001310| 28 74 79 70 65 70 20 74 | 61 72 67 65 74 20 28 64 |(typep t|arget (d|
|00001320| 72 6f 70 2d 74 61 72 67 | 65 74 2d 63 6c 61 73 73 |rop-targ|et-class|
|00001330| 20 73 76 29 29 0d 20 20 | 20 20 20 20 28 69 66 20 | sv)).  |    (if |
|00001340| 28 73 6c 6f 74 2d 62 6f | 75 6e 64 70 20 73 76 20 |(slot-bo|undp sv |
|00001350| 27 64 72 6f 70 2d 74 61 | 72 67 65 74 73 29 0d 20 |'drop-ta|rgets). |
|00001360| 20 20 20 20 20 20 20 28 | 77 68 65 6e 20 28 66 69 |       (|when (fi|
|00001370| 6e 64 20 28 76 69 65 77 | 2d 6e 69 63 6b 2d 6e 61 |nd (view|-nick-na|
|00001380| 6d 65 20 74 61 72 67 65 | 74 29 20 28 64 72 6f 70 |me targe|t) (drop|
|00001390| 2d 74 61 72 67 65 74 73 | 20 73 76 29 29 20 74 61 |-targets| sv)) ta|
|000013a0| 72 67 65 74 29 0d 20 20 | 20 20 20 20 20 20 74 61 |rget).  |      ta|
|000013b0| 72 67 65 74 29 29 29 29 | 0d 0d 28 64 65 66 6d 65 |rget))))|..(defme|
|000013c0| 74 68 6f 64 20 66 69 6e | 64 2d 64 72 6f 70 70 61 |thod fin|d-droppa|
|000013d0| 62 6c 65 2d 76 69 65 77 | 2d 63 6f 6e 74 61 69 6e |ble-view|-contain|
|000013e0| 69 6e 67 2d 70 6f 69 6e | 74 20 28 28 73 76 20 64 |ing-poin|t ((sv d|
|000013f0| 72 6f 70 70 61 62 6c 65 | 2d 73 76 6d 29 20 77 68 |roppable|-svm) wh|
|00001400| 65 72 65 29 0d 20 20 28 | 6c 65 74 20 28 28 76 20 |ere).  (|let ((v |
|00001410| 28 72 6f 6f 74 2d 64 72 | 6f 70 2d 74 61 72 67 65 |(root-dr|op-targe|
|00001420| 74 2d 76 69 65 77 20 73 | 76 20 77 68 65 72 65 29 |t-view s|v where)|
|00001430| 29 29 0d 20 20 20 20 28 | 77 68 65 6e 20 76 0d 20 |)).    (|when v. |
|00001440| 20 20 20 20 20 28 64 72 | 6f 70 70 61 62 6c 65 2d |     (dr|oppable-|
|00001450| 70 20 73 76 20 28 66 69 | 6e 64 2d 76 69 65 77 2d |p sv (fi|nd-view-|
|00001460| 63 6f 6e 74 61 69 6e 69 | 6e 67 2d 70 6f 69 6e 74 |containi|ng-point|
|00001470| 20 76 20 28 67 6c 6f 62 | 61 6c 2d 74 6f 2d 76 69 | v (glob|al-to-vi|
|00001480| 65 77 20 76 20 77 68 65 | 72 65 29 29 29 29 29 29 |ew v whe|re))))))|
|00001490| 0d 0d 28 64 65 66 6d 65 | 74 68 6f 64 20 72 6f 6f |..(defme|thod roo|
|000014a0| 74 2d 64 72 6f 70 2d 74 | 61 72 67 65 74 2d 76 69 |t-drop-t|arget-vi|
|000014b0| 65 77 20 28 28 73 76 20 | 64 72 6f 70 70 61 62 6c |ew ((sv |droppabl|
|000014c0| 65 2d 73 76 6d 29 20 77 | 68 65 72 65 29 0d 20 20 |e-svm) w|here).  |
|000014d0| 28 65 63 61 73 65 20 28 | 64 72 61 67 2d 62 6f 75 |(ecase (|drag-bou|
|000014e0| 6e 64 73 20 73 76 29 0d | 20 20 20 20 28 3a 63 6f |nds sv).|    (:co|
|000014f0| 6e 74 61 69 6e 65 72 20 | 28 76 69 65 77 2d 63 6f |ntainer |(view-co|
|00001500| 6e 74 61 69 6e 65 72 20 | 73 76 29 29 0d 20 20 20 |ntainer |sv)).   |
|00001510| 20 28 3a 77 69 6e 64 6f | 77 20 28 76 69 65 77 2d | (:windo|w (view-|
|00001520| 77 69 6e 64 6f 77 20 73 | 76 29 29 0d 20 20 20 20 |window s|v)).    |
|00001530| 28 3a 6e 6f 6e 65 20 28 | 66 69 6e 64 2d 76 69 65 |(:none (|find-vie|
|00001540| 77 2d 63 6f 6e 74 61 69 | 6e 69 6e 67 2d 70 6f 69 |w-contai|ning-poi|
|00001550| 6e 74 20 6e 69 6c 20 77 | 68 65 72 65 20 6e 69 6c |nt nil w|here nil|
|00001560| 20 74 29 29 29 29 0d 0d | 3b 3b 3b 3b 3b 3b 3b 3b | t))))..|;;;;;;;;|
|00001570| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001580| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001590| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000015a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 0d 0d |;;;;;;;;|;;;;;;..|
|000015b0| 0d 23 7c 0d 0d 3b 3b 3b | 20 61 20 6d 6f 64 65 73 |.#|..;;;| a modes|
|000015c0| 74 20 65 78 61 6d 70 6c | 65 20 2d 20 61 64 64 69 |t exampl|e - addi|
|000015d0| 6e 67 20 64 72 6f 70 20 | 41 4e 44 20 73 65 6c 65 |ng drop |AND sele|
|000015e0| 63 74 20 62 65 68 61 76 | 69 6f 72 20 74 6f 20 73 |ct behav|ior to s|
|000015f0| 74 61 74 69 63 20 74 65 | 78 74 20 64 69 61 6c 6f |tatic te|xt dialo|
|00001600| 67 20 69 74 65 6d 73 0d | 3b 3b 3b 20 28 75 73 65 |g items.|;;; (use|
|00001610| 20 73 68 69 66 74 20 74 | 6f 20 73 65 6c 65 63 74 | shift t|o select|
|00001620| 20 6d 75 6c 74 69 70 6c | 65 20 69 74 65 6d 73 20 | multipl|e items |
|00001630| 74 6f 20 64 72 6f 70 29 | 0d 0d 28 72 65 71 75 69 |to drop)|..(requi|
|00001640| 72 65 20 3a 73 65 6c 65 | 63 74 61 62 6c 65 2d 73 |re :sele|ctable-s|
|00001650| 76 6d 29 0d 0d 28 64 65 | 66 63 6c 61 73 73 20 73 |vm)..(de|fclass s|
|00001660| 74 2d 73 65 6c 2d 64 72 | 6f 70 20 28 73 65 6c 65 |t-sel-dr|op (sele|
|00001670| 63 74 61 62 6c 65 2d 73 | 76 6d 20 64 72 6f 70 70 |ctable-s|vm dropp|
|00001680| 61 62 6c 65 2d 73 76 6d | 20 73 74 61 74 69 63 2d |able-svm| static-|
|00001690| 74 65 78 74 2d 64 69 61 | 6c 6f 67 2d 69 74 65 6d |text-dia|log-item|
|000016a0| 29 20 28 29 29 0d 3b 6e | 6f 74 65 20 74 68 61 74 |) ()).;n|ote that|
|000016b0| 20 73 65 6c 65 63 74 61 | 62 6c 65 2d 73 76 6d 20 | selecta|ble-svm |
|000016c0| 70 72 65 63 65 64 65 73 | 20 64 72 6f 70 70 61 62 |precedes| droppab|
|000016d0| 6c 65 2d 73 76 6d 0d 0d | 28 64 65 66 75 6e 20 70 |le-svm..|(defun p|
|000016e0| 72 69 6e 74 2d 74 61 72 | 67 65 74 20 28 64 69 20 |rint-tar|get (di |
|000016f0| 74 61 72 67 65 74 20 6f | 66 66 73 65 74 20 77 68 |target o|ffset wh|
|00001700| 65 72 65 29 0d 20 20 28 | 66 6f 72 6d 61 74 20 74 |ere).  (|format t|
|00001710| 20 22 64 72 6f 70 70 65 | 64 20 7e 73 20 6f 6e 74 | "droppe|d ~s ont|
|00001720| 6f 20 7e 73 20 61 74 20 | 7e 61 20 28 64 65 6c 74 |o ~s at |~a (delt|
|00001730| 61 20 3d 20 7e 61 29 7e | 25 22 0d 20 20 20 20 20 |a = ~a)~|%".     |
|00001740| 20 20 20 20 20 28 64 69 | 61 6c 6f 67 2d 69 74 65 |     (di|alog-ite|
|00001750| 6d 2d 74 65 78 74 20 64 | 69 29 0d 20 20 20 20 20 |m-text d|i).     |
|00001760| 20 20 20 20 20 28 64 69 | 61 6c 6f 67 2d 69 74 65 |     (di|alog-ite|
|00001770| 6d 2d 74 65 78 74 20 74 | 61 72 67 65 74 29 0d 20 |m-text t|arget). |
|00001780| 20 20 20 20 20 20 20 20 | 20 28 70 6f 69 6e 74 2d |        | (point-|
|00001790| 73 74 72 69 6e 67 20 77 | 68 65 72 65 29 0d 20 20 |string w|here).  |
|000017a0| 20 20 20 20 20 20 20 20 | 28 70 6f 69 6e 74 2d 73 |        |(point-s|
|000017b0| 74 72 69 6e 67 20 6f 66 | 66 73 65 74 29 29 29 0d |tring of|fset))).|
|000017c0| 0d 28 73 65 74 66 20 2a | 74 65 73 74 2d 77 2a 0d |.(setf *|test-w*.|
|000017d0| 20 20 20 20 20 20 28 6d | 61 6b 65 2d 69 6e 73 74 |      (m|ake-inst|
|000017e0| 61 6e 63 65 20 27 64 69 | 61 6c 6f 67 0d 20 20 20 |ance 'di|alog.   |
|000017f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001800| 20 20 3a 77 69 6e 64 6f | 77 2d 74 79 70 65 20 3a |  :windo|w-type :|
|00001810| 64 6f 63 75 6d 65 6e 74 | 0d 20 20 20 20 20 20 20 |document|.       |
|00001820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 76 |        |      :v|
|00001830| 69 65 77 2d 70 6f 73 69 | 74 69 6f 6e 20 3a 63 65 |iew-posi|tion :ce|
|00001840| 6e 74 65 72 65 64 0d 20 | 20 20 20 20 20 20 20 20 |ntered. |        |
|00001850| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 76 69 65 |        |    :vie|
|00001860| 77 2d 73 69 7a 65 20 23 | 40 28 32 30 30 20 31 35 |w-size #|@(200 15|
|00001870| 30 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0).     |        |
|00001880| 20 20 20 20 20 20 20 20 | 3a 77 69 6e 64 6f 77 2d |        |:window-|
|00001890| 74 69 74 6c 65 20 22 64 | 72 6f 70 70 61 62 6c 65 |title "d|roppable|
|000018a0| 20 64 65 6d 6f 22 0d 20 | 20 20 20 20 20 20 20 20 | demo". |        |
|000018b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 63 6c 6f |        |    :clo|
|000018c0| 73 65 2d 62 6f 78 2d 70 | 20 74 0d 20 20 20 20 20 |se-box-p| t.     |
|000018d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000018e0| 3a 76 69 65 77 2d 73 75 | 62 76 69 65 77 73 0d 20 |:view-su|bviews. |
|000018f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001900| 20 20 20 20 28 6c 69 73 | 74 20 28 6d 61 6b 65 2d |    (lis|t (make-|
|00001910| 69 6e 73 74 61 6e 63 65 | 20 27 73 74 2d 73 65 6c |instance| 'st-sel|
|00001920| 2d 64 72 6f 70 0d 20 20 | 20 20 20 20 20 20 20 20 |-drop.  |        |
|00001930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001950| 3a 76 69 65 77 2d 70 6f | 73 69 74 69 6f 6e 20 23 |:view-po|sition #|
|00001960| 40 28 32 30 20 32 30 29 | 0d 20 20 20 20 20 20 20 |@(20 20)|.       |
|00001970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001990| 20 20 20 3a 64 69 61 6c | 6f 67 2d 69 74 65 6d 2d |   :dial|og-item-|
|000019a0| 74 65 78 74 20 22 64 72 | 6f 70 2f 73 65 6c 65 63 |text "dr|op/selec|
|000019b0| 74 20 6d 65 22 0d 20 20 | 20 20 20 20 20 20 20 20 |t me".  |        |
|000019c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000019d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000019e0| 3a 76 69 65 77 2d 6e 69 | 63 6b 2d 6e 61 6d 65 20 |:view-ni|ck-name |
|000019f0| 3a 69 31 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |:i1.    |        |
|00001a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 73 |        |      :s|
|00001a20| 65 6c 65 63 74 69 6f 6e | 2d 63 6c 75 73 74 65 72 |election|-cluster|
|00001a30| 20 31 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | 1.     |        |
|00001a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 64 72 |        |     :dr|
|00001a60| 6f 70 2d 74 61 72 67 65 | 74 73 20 27 28 3a 69 34 |op-targe|ts '(:i4|
|00001a70| 20 3a 69 35 29 0d 20 20 | 20 20 20 20 20 20 20 20 | :i5).  |        |
|00001a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001aa0| 3a 64 72 61 67 2d 62 6f | 75 6e 64 73 20 3a 77 69 |:drag-bo|unds :wi|
|00001ab0| 6e 64 6f 77 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ndow.   |        |
|00001ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|00001ae0| 64 72 6f 70 2d 61 63 74 | 69 6f 6e 2d 66 6e 20 23 |drop-act|ion-fn #|
|00001af0| 27 70 72 69 6e 74 2d 74 | 61 72 67 65 74 0d 20 20 |'print-t|arget.  |
|00001b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001b20| 20 20 20 20 20 20 20 20 | 29 0d 20 20 20 20 20 20 |        |).      |
|00001b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001b40| 20 20 20 20 20 28 6d 61 | 6b 65 2d 69 6e 73 74 61 |     (ma|ke-insta|
|00001b50| 6e 63 65 20 27 73 74 2d | 73 65 6c 2d 64 72 6f 70 |nce 'st-|sel-drop|
|00001b60| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001b80| 20 20 20 20 20 20 20 20 | 20 20 20 3a 76 69 65 77 |        |   :view|
|00001b90| 2d 70 6f 73 69 74 69 6f | 6e 20 23 40 28 32 30 20 |-positio|n #@(20 |
|00001ba0| 34 30 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |40).    |        |
|00001bb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 64 |        |      :d|
|00001bd0| 69 61 6c 6f 67 2d 69 74 | 65 6d 2d 74 65 78 74 20 |ialog-it|em-text |
|00001be0| 22 6d 65 20 74 6f 6f 22 | 0d 20 20 20 20 20 20 20 |"me too"|.       |
|00001bf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001c10| 20 20 20 3a 76 69 65 77 | 2d 6e 69 63 6b 2d 6e 61 |   :view|-nick-na|
|00001c20| 6d 65 20 3a 69 32 0d 20 | 20 20 20 20 20 20 20 20 |me :i2. |        |
|00001c30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001c50| 20 3a 73 65 6c 65 63 74 | 69 6f 6e 2d 63 6c 75 73 | :select|ion-clus|
|00001c60| 74 65 72 20 31 0d 20 20 | 20 20 20 20 20 20 20 20 |ter 1.  |        |
|00001c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001c80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001c90| 3a 64 72 6f 70 2d 74 61 | 72 67 65 74 73 20 27 28 |:drop-ta|rgets '(|
|00001ca0| 3a 69 34 20 3a 69 35 29 | 0d 20 20 20 20 20 20 20 |:i4 :i5)|.       |
|00001cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001cd0| 20 20 20 3a 64 72 61 67 | 2d 62 6f 75 6e 64 73 20 |   :drag|-bounds |
|00001ce0| 3a 6e 6f 6e 65 0d 20 20 | 20 20 20 20 20 20 20 20 |:none.  |        |
|00001cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d10| 3a 64 72 6f 70 2d 61 63 | 74 69 6f 6e 2d 66 6e 20 |:drop-ac|tion-fn |
|00001d20| 23 27 70 72 69 6e 74 2d | 74 61 72 67 65 74 0d 20 |#'print-|target. |
|00001d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d50| 20 20 20 20 20 20 20 20 | 20 29 0d 20 20 20 20 20 |        | ).     |
|00001d60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d70| 20 20 20 20 20 20 28 6d | 61 6b 65 2d 69 6e 73 74 |      (m|ake-inst|
|00001d80| 61 6e 63 65 20 27 73 74 | 2d 73 65 6c 2d 64 72 6f |ance 'st|-sel-dro|
|00001d90| 70 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |p.      |        |
|00001da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001db0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 76 69 65 |        |    :vie|
|00001dc0| 77 2d 70 6f 73 69 74 69 | 6f 6e 20 23 40 28 32 30 |w-positi|on #@(20|
|00001dd0| 20 36 30 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 | 60).   |        |
|00001de0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|00001e00| 64 69 61 6c 6f 67 2d 69 | 74 65 6d 2d 74 65 78 74 |dialog-i|tem-text|
|00001e10| 20 22 6d 65 20 33 22 0d | 20 20 20 20 20 20 20 20 | "me 3".|        |
|00001e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001e30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001e40| 20 20 3a 76 69 65 77 2d | 6e 69 63 6b 2d 6e 61 6d |  :view-|nick-nam|
|00001e50| 65 20 3a 69 33 0d 20 20 | 20 20 20 20 20 20 20 20 |e :i3.  |        |
|00001e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001e70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001e80| 3a 73 65 6c 65 63 74 69 | 6f 6e 2d 63 6c 75 73 74 |:selecti|on-clust|
|00001e90| 65 72 20 31 0d 20 20 20 | 20 20 20 20 20 20 20 20 |er 1.   |        |
|00001ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001eb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|00001ec0| 64 72 6f 70 2d 74 61 72 | 67 65 74 73 20 27 28 3a |drop-tar|gets '(:|
|00001ed0| 69 34 20 3a 69 35 29 0d | 20 20 20 20 20 20 20 20 |i4 :i5).|        |
|00001ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001f00| 20 20 3a 64 72 61 67 2d | 62 6f 75 6e 64 73 20 3a |  :drag-|bounds :|
|00001f10| 77 69 6e 64 6f 77 0d 20 | 20 20 20 20 20 20 20 20 |window. |        |
|00001f20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001f40| 20 3a 64 72 6f 70 2d 61 | 63 74 69 6f 6e 2d 66 6e | :drop-a|ction-fn|
|00001f50| 20 23 27 70 72 69 6e 74 | 2d 74 61 72 67 65 74 0d | #'print|-target.|
|00001f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001f80| 20 20 20 20 20 20 20 20 | 20 20 29 0d 20 20 20 20 |        |  ).    |
|00001f90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001fa0| 20 20 20 20 20 20 20 28 | 6d 61 6b 65 2d 69 6e 73 |       (|make-ins|
|00001fb0| 74 61 6e 63 65 20 27 73 | 74 61 74 69 63 2d 74 65 |tance 's|tatic-te|
|00001fc0| 78 74 2d 64 69 61 6c 6f | 67 2d 69 74 65 6d 0d 20 |xt-dialo|g-item. |
|00001fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001ff0| 20 20 20 20 20 20 20 20 | 20 3a 76 69 65 77 2d 70 |        | :view-p|
|00002000| 6f 73 69 74 69 6f 6e 20 | 23 40 28 32 30 20 31 30 |osition |#@(20 10|
|00002010| 30 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0).     |        |
|00002020| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 64 69 |        |     :di|
|00002040| 61 6c 6f 67 2d 69 74 65 | 6d 2d 74 65 78 74 20 22 |alog-ite|m-text "|
|00002050| 68 69 74 20 6d 65 22 0d | 20 20 20 20 20 20 20 20 |hit me".|        |
|00002060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002080| 20 20 3a 76 69 65 77 2d | 6e 69 63 6b 2d 6e 61 6d |  :view-|nick-nam|
|00002090| 65 20 3a 69 34 0d 20 20 | 20 20 20 20 20 20 20 20 |e :i4.  |        |
|000020a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000020b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000020c0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|000020d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 6d 61 |        |     (ma|
|000020e0| 6b 65 2d 69 6e 73 74 61 | 6e 63 65 20 27 73 74 61 |ke-insta|nce 'sta|
|000020f0| 74 69 63 2d 74 65 78 74 | 2d 64 69 61 6c 6f 67 2d |tic-text|-dialog-|
|00002100| 69 74 65 6d 0d 20 20 20 | 20 20 20 20 20 20 20 20 |item.   |        |
|00002110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|00002130| 76 69 65 77 2d 70 6f 73 | 69 74 69 6f 6e 20 23 40 |view-pos|ition #@|
|00002140| 28 32 30 20 31 32 30 29 | 0d 20 20 20 20 20 20 20 |(20 120)|.       |
|00002150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002170| 20 20 20 3a 64 69 61 6c | 6f 67 2d 69 74 65 6d 2d |   :dial|og-item-|
|00002180| 74 65 78 74 20 22 68 69 | 74 20 6d 65 20 74 6f 6f |text "hi|t me too|
|00002190| 22 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |".      |        |
|000021a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000021b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 76 69 65 |        |    :vie|
|000021c0| 77 2d 6e 69 63 6b 2d 6e | 61 6d 65 20 3a 69 35 0d |w-nick-n|ame :i5.|
|000021d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000021e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000021f0| 20 20 20 20 20 20 20 20 | 20 20 29 0d 20 20 20 20 |        |  ).    |
|00002200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002210| 20 20 20 20 20 20 20 29 | 29 29 0d 0d 7c 23 00 00 |       )|))..|#..|
|00002220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002280| 00 00 01 00 00 00 01 5a | 00 00 00 5a 00 00 00 46 |.......Z|...Z...F|
|00002290| 3b 3b 3b 3b 3b 0d dc 0f | 0d 03 00 01 04 52 45 4d |;;;;;...|.....REM|
|000022a0| 46 07 00 03 59 1d 0f 0c | 0e 2a 43 55 52 52 45 4e |F...Y...|.*CURREN|
|000022b0| 12 64 72 6f 70 70 61 62 | 6c 65 2d 73 76 6d 2e 6c |.droppab|le-svm.l|
|000022c0| 69 73 70 6d 02 00 00 00 | 54 45 58 54 43 43 4c 32 |ispm....|TEXTCCL2|
|000022d0| 00 00 54 45 58 54 43 43 | 4c 32 40 00 00 00 00 00 |..TEXTCC|L2@.....|
|000022e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022f0| 00 00 a4 c8 8c 99 00 00 | 00 00 00 00 01 a0 4e 47 |........|......NG|
|00002300| 3c 3d 07 00 03 f7 6c 0f | 0c 12 53 45 54 2d 56 49 |<=....l.|..SET-VI|
|00002310| 45 57 2d 43 4f 4e 54 41 | 49 4e 45 52 07 00 03 af |EW-CONTA|INER....|
|00002320| 4e 0f 0d 03 00 01 08 42 | 4f 4f 4c 45 2d 43 32 0a |N......B|OOLE-C2.|
|00002330| 56 58 0f 0c 17 2a 46 41 | 53 4c 2d 53 41 56 45 2d |VX...*FA|SL-SAVE-|
|00002340| 44 45 46 49 4e 49 54 49 | 4f 4e 53 2a 07 00 01 97 |DEFINITI|ONS*....|
|00002350| 97 0f 0d 03 00 01 0f 4e | 53 45 54 2d 44 49 46 46 |.......N|SET-DIFF|
|00002360| 45 52 45 4e 43 45 07 00 | 02 cd da 0f 0c 08 50 45 |ERENCE..|......PE|
|00002370| 4e 2d 48 49 44 45 07 00 | 02 ff b7 0f 0d 03 00 01 |N-HIDE..|........|
|00002380| 00 00 00 0a 00 01 00 16 | 0a 00 01 00 00 00 00 00 |........|........|
|00002390| 00 48 00 0a 43 6f 75 72 | 69 65 72 00 00 00 00 00 |.H..Cour|ier.....|
|000023a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023b0| 00 00 00 00 00 06 00 08 | 00 48 00 64 03 20 02 58 |........|.H.d. .X|
|000023c0| 00 48 00 64 03 20 02 58 | 00 00 00 00 00 00 17 4f |.H.d. .X|.......O|
|000023d0| 00 00 17 4f 00 00 14 e7 | 01 00 00 00 01 00 00 00 |...O....|........|
|000023e0| 01 5a 00 00 00 5a 00 00 | 00 46 00 37 d3 2c 08 74 |.Z...Z..|.F.7.,.t|
|000023f0| 00 00 00 1c 00 46 00 01 | 46 52 45 44 00 00 00 12 |.....F..|FRED....|
|00002400| 4d 50 53 52 00 00 00 1e | 00 02 ff ff 00 00 00 00 |MPSR....|........|
|00002410| 00 00 00 00 03 ed ff ff | 00 00 00 0e 00 37 ff 00 |........|.....7..|
|00002420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+